home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / H-Hx / HomeDesk.cpt / Home Desk / card_8906.txt < prev    next >
Encoding:
Text File  |  1987-10-27  |  7.6 KB  |  367 lines
  1. -- card: 8906 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 6181
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=124 top=88 right=110 bottom=154
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 12
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   show card field "attempt"
  23.   If length of card field "attempt"=0 then
  24.     put "12" into card field "attempt"
  25.   else
  26.     put card field "attempt"&"-12" into card field "attempt"
  27.   end if
  28.  
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 2 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=154 top=95 right=117 bottom=184
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: 1
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   show card field "attempt"
  48.   If length of card field "attempt"=0 then
  49.     put "1" into card field "attempt"
  50.   else
  51.     put card field "attempt"&"-1" into card field "attempt"
  52.   end if
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 3 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=175 top=116 right=138 bottom=205
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: 2
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   show card field "attempt"
  72.   If length of card field "attempt"=0 then
  73.     put "2" into card field "attempt"
  74.   else
  75.     put card field "attempt"&"-2" into card field "attempt"
  76.   end if
  77.  
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=182 top=141 right=163 bottom=212
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: 3
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   show card field "attempt"
  97.   If length of card field "attempt"=0 then
  98.     put "3" into card field "attempt"
  99.   else
  100.     put card field "attempt"&"-3" into card field "attempt"
  101.   end if
  102.  
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 5 (button)
  108. -- low flags: 00
  109. -- high flags: 0000
  110. -- rect: left=175 top=171 right=193 bottom=205
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: 4
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   show card field "attempt"
  122.   If length of card field "attempt"=0 then
  123.     put "4" into card field "attempt"
  124.   else
  125.     put card field "attempt"&"-4" into card field "attempt"
  126.   end if
  127.  
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 6 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=154 top=193 right=215 bottom=184
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: 5
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   show card field "attempt"
  147.   If length of card field "attempt"=0 then
  148.     put "5" into card field "attempt"
  149.   else
  150.     put card field "attempt"&"-5" into card field "attempt"
  151.   end if
  152.  
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 7 (button)
  158. -- low flags: 00
  159. -- high flags: 0000
  160. -- rect: left=120 top=201 right=223 bottom=150
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: 6
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   show card field "attempt"
  172.   If length of card field "attempt"=0 then
  173.     put "6" into card field "attempt"
  174.   else
  175.     put card field "attempt"&"-6" into card field "attempt"
  176.   end if
  177.  
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 8 (button)
  183. -- low flags: 00
  184. -- high flags: 0000
  185. -- rect: left=86 top=194 right=216 bottom=116
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: 7
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   show card field "attempt"
  197.   If length of card field "attempt"=0 then
  198.     put "7" into card field "attempt"
  199.   else
  200.     put card field "attempt"&"-7" into card field "attempt"
  201.   end if
  202.  
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 9 (button)
  208. -- low flags: 00
  209. -- high flags: 0000
  210. -- rect: left=67 top=171 right=193 bottom=97
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: 8
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   show card field "attempt"
  222.   If length of card field "attempt"=0 then
  223.     put "8" into card field "attempt"
  224.   else
  225.     put card field "attempt"&"-8" into card field "attempt"
  226.   end if
  227.  
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 10 (button)
  233. -- low flags: 00
  234. -- high flags: 0000
  235. -- rect: left=59 top=142 right=164 bottom=89
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: 9
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   show card field "attempt"
  247.   If length of card field "attempt"=0 then
  248.     put "9" into card field "attempt"
  249.   else
  250.     put card field "attempt"&"-9" into card field "attempt"
  251.   end if
  252.  
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 11 (button)
  258. -- low flags: 00
  259. -- high flags: 0000
  260. -- rect: left=69 top=114 right=136 bottom=99
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: 10
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   show card field "attempt"
  272.   If length of card field "attempt"=0 then
  273.     put "10" into card field "attempt"
  274.   else
  275.     put card field "attempt"&"-10" into card field "attempt"
  276.   end if
  277.  
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 12 (button)
  283. -- low flags: 00
  284. -- high flags: 0000
  285. -- rect: left=92 top=92 right=114 bottom=122
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: 11
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   show card field "attempt"
  297.   If length of card field "attempt"=0 then
  298.     put "11" into card field "attempt"
  299.   else
  300.     put card field "attempt"&"-11" into card field "attempt"
  301.   end if
  302.  
  303. end mouseUp
  304.  
  305.  
  306.  
  307. -- part 13 (field)
  308. -- low flags: 81
  309. -- high flags: 0000
  310. -- rect: left=80 top=44 right=64 bottom=191
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 65535
  314. -- font id: 3
  315. -- text size: 14
  316. -- style flags: 256
  317. -- line height: 18
  318. -- part name: attempt
  319.  
  320.  
  321. -- part 14 (field)
  322. -- low flags: 80
  323. -- high flags: 0002
  324. -- rect: left=266 top=142 right=161 bottom=403
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 0
  328. -- font id: 3
  329. -- text size: 12
  330. -- style flags: 256
  331. -- line height: 16
  332. -- part name: combination
  333.  
  334.  
  335. -- part 15 (button)
  336. -- low flags: 00
  337. -- high flags: 0000
  338. -- rect: left=313 top=228 right=254 bottom=469
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 0
  343. -- text size: 12
  344. -- style flags: 0
  345. -- line height: 16
  346. -- part name: Handle
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   if card field "attempt"=card field "combination" then
  350.     hide card field "attempt"
  351.     put "" into card field "attempt"
  352.     visual effect wipe left
  353.     go to card id 9492
  354.   else
  355.     beep
  356.     hide card field "attempt"
  357.     put "" into card field "attempt"
  358.     visual effect iris close
  359.     pop card
  360.   end if
  361. end mouseUp
  362.  
  363.  
  364.  
  365. -- part contents for card part 14
  366. ----- text -----
  367. 2-4-6-8